home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / ls 9 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  76 lines
  1. 100 REM PROGRAMMSTART BEWEGEN,ANIMATION
  2. 110 REM UND KOLLISION
  3. 120 REM
  4. 130 REM VORBEREITUNGEN
  5. 140 REM
  6. 150 REM FARBEN
  7. 160 POKE53280,5:POKE53281,0
  8. 170 POKE 53285,8:POKE53286,11:POKE53287,7
  9. 180 REM
  10. 190 XREG=53248:XLAUF=53264
  11. 200 YREG=53249:KOLL=53279
  12. 210 BL=128:BA=128:BE=135
  13. 220 REM
  14. 230 POKEKOLL,0:REM KOLLISION LOESCHEN
  15. 240 POKE53276,1:REM SPRITE 0 MULTICOLOR
  16. 250 POKE2040,BL:REM  SPRITEZEIGER AUF ERSTEN BLOCK
  17. 260 POKEXREG,0:POKEXLAUF,0:POKEYREG,117:REM ANFANGSPOS.
  18. 270 POKE 53269,1:REM SPRITE 0 AN
  19. 280 GOSUB490
  20. 290 REM
  21. 300 REM SPRITE ANIMIEREN
  22. 310 REM
  23. 320 GOSUB670:REM JOYSTICKABFRAGE
  24. 330 IF XP<=255 THEN POKE XLAUF,0
  25. 340 IF XP>255 THEN POKE XLAUF,1:XP=XP-255
  26. 350 POKE XREG,XP
  27. 360 GOSUB420:REM ANIMATION
  28. 370 GOSUB580:REM KOLLISION
  29. 380 GOTO320
  30. 390 REM
  31. 400 REM NAECHSTER BLOCK
  32. 410 REM
  33. 420 BL=BL+1
  34. 430 IFBL>BETHENBL=BA
  35. 440 POKE2040,BL:REM BILDWECHSEL
  36. 450 RETURN
  37. 460 REM
  38. 470 REM BODEN ZEICHNEN
  39. 480 REM
  40. 490 PRINT"[147]";
  41. 500 FORW=1TO40:PRINT" ";:NEXTW
  42. 510 PRINT"[146]"
  43. 520 PRINT"";
  44. 530 FORW=1TO5:PRINTTAB(28)" [146]":NEXTW
  45. 540 RETURN
  46. 550 REM
  47. 560 REM KOLLISIONSABFRAGE
  48. 570 REM
  49. 580 IFPEEK(KOLL)=0THENRETURN
  50. 590 IFPEEK(53277)=0THENXP=XP-40:POKEXREG,XP:POKE53277,1:GOTO610
  51. 600 POKE53277,0
  52. 610 POKEKOLL,0:REM KOLLISIONSREGISTER
  53. 620 REM            LOESCHEN
  54. 630 RETURN
  55. 640 REM
  56. 650 REM JOYSTICKABFRAGE
  57. 660 REM
  58. 670 JOY=PEEK(56321)
  59. 680 IFJOY=251THEN740
  60. 690 IFJOY=247THEN810
  61. 700 GOTO670
  62. 710 REM
  63. 720 REM JOYSTICK LINKS
  64. 730 REM
  65. 740 XP=XP-3:IFXP<0THENXP=0
  66. 750 IFBL>135THENRETURN
  67. 760 BA=136:BE=143:BL=BL+8
  68. 770 RETURN
  69. 780 REM
  70. 790 REM JOYSTICK RECHTS
  71. 800 REM
  72. 810 XP=XP+3
  73. 820 IFBL<136THENRETURN
  74. 830 BA=128:BE=135:BL=BL-8
  75. 840 RETURN
  76.